Un cuento digital desde R

# Un cuento digital desde R
## <em>Cómo crear un relato situado con Leaflet</em>
### <strong>Natalia Morandeira</strong>
### Latin R 2021
### 10-12 de noviembre de 2021

---

# Diapositivas

.center[<img src="data:image/png;base64,#img/QR_DiaposLatinR.png" width="40%" alt="Código QR de acceso a las diapositivas"/>]

---

# Un cuento digital y situado

---

# Disparador
.pull-left[
- Convocatoria de un concurso de **cuento digital**, con un plazo definido.
- Aprovechando el impulso del mundo R, ¿se puede hacer un cuento digital en este lenguaje?
- ¿Mi historia tiene un componente espacial?]

.pull-right[
.center[<img src="data:image/png;base64,#img/Leer_LopezBrazola.jpg" width="90%" alt="Ilustración de una persona leyendo, el libro tiene un ojo de cerradura en la tapa y a través de él se ve el ojo de la lectora"/>]

---

# Disparador
- Algunos apuntes en papel, un borrador del relato.

.center[<img src="data:image/png;base64,#img/texto.gif" width="70%" alt="Animación mostrando mi mano escribiendo en un cuaderno el título Detector de metales, luego el cuaderno se cierra"/>]

---

# Identidad y universo personal
.pull-left[
- Como escritora, en mi **universo personal** (_Mauricio Kartun_) están los paisajes, el campo, los humedales.]

.pull-right[
.center[<img src="data:image/png;base64,#img/Puente.JPG" width="110%" alt="Puente roto de madera, sobre en un río. Vista desde el puente de madera."/>]

---
# Identidad y universo personal
.pull-left[
- La **bajante del río Paraná**: un año de pandemia estudiando incendios en el Delta. Y al visitar en 2021 encuentro otra cara de la bajante: los _detectores de metales_ en la costa de ríos y lagunas.]

.pull-right[
.center[<img src="data:image/png;base64,#img/Bajante_LopezBrach.png" width="120%" alt="El lecho de un río muy seco, casi sin agua, frente a un poblado."/>]

---
# Identidad y universo personal
.pull-left[
- La creatividad como producto de la **asociación de ideas** que no estaban relacionadas: un detector de metales, una foto que alguna vez vi. Y luego: la misma elaboración del cuento situado en paisajes que alguna vez visité.]

.pull-right[
.center[<img src="data:image/png;base64,#img/DetectordeMetales_AlanMonzonRosario3_distort.jpg" width="120%" alt="Un hombre vestido con camisa de trabajo, bermudas y visera explora la orilla del río Paraná con un artefacto largo, el detector de metales"/>]

---
class: chapter-slide

# La restricción como potencia para la escritura creativa

---
# ¿Qué restricciones?
- El cuento tiene un **componente espacial explícito**: situado en un mapa.

- Texto dividido en **fragmentos** breves.

- Un máximo de **caracteres** totales y tiempo de lectura.

- Navegabilidad y accesibilidad.

- Mis propias limitaciones para programar en R (y para narrar).

---

# Y estas elecciones...

- La mención al **espacio geográfico** no estará en la narrativa sino sugerida en el mapa.

- Los fragmentos se podrán leer en un **orden aleatorio**.

- Un único punto de vista y narrador.

- El **principal lenguaje** será la ficción narrativa.

- Lo digital debe ser simple.

---
class: chapter-slide

# El cuento

---
# Link al cuento

.center[<img src="data:image/png;base64,#img/QR_cuento.png" width="40%" alt="Código QR de acceso al cuento"/>]

---

# Datos de entrada

1. El texto, separado en párrafos con comas como delimitadores. Opcional: lenguaje HTML para darle formato.

2. Objeto espacial (shp o gpkg): 5 puntos, cada uno con un ID.

.center[<img src="data:image/png;base64,#img/textoplano.png" width="80%" alt="Texto sin formato, separado en párrafos"/>]

---

# El código de R

---

# Librerías necesarias

.center[<img src="data:image/png;base64,#img/hexstickers.png" width="55%" alt="logo de Leaflet y hex stickers sf, rmarkdown, dplyr, htmltools y xaringan"/>]

---

# Procesos del flujo de trabajo
a. Lectura del relato y del archivo vectorial

```r
library(sf)
library(dplyr)
detectormetales <- st_read("data/DetectorMetales.shp", quiet=TRUE) %>%
  arrange(id)
relato <- read.csv("data/relato.txt", header=FALSE)
```

---

# Procesos del flujo de trabajo
b. Unión relacional: puntos del objeto espacial con párrafos

```r
relato$id <- c(1,2,3,4,5)
detectormetales<-left_join(detectormetales, relato)
```

---
# Procesos del flujo de trabajo
c. Creación del mapa base con uno o más proveedores de Leaflet.

```r
library(leaflet)
library(htmltools)
```

```r
mapa_base <-leaflet(width=750, height = 450) %>% 
  addProviderTiles("Stamen.Watercolor", group="Acuarela", options = providerTileOptions(attribution = "Acuarela de fondo: Stamen Design Watercolor, CC BY 3.0. Datos OpenStreetMap, CC BY SA 2.0" )) %>%
  addProviderTiles("OpenStreetMap.Mapnik", group = "Mapa", options = providerTileOptions(attribution = "Mapa de fondo: © OpenStreetMap contributors, CC BY-SA 2.0" )) %>%
  addProviderTiles("Esri.WorldImagery", group = "Satelital", options = providerTileOptions(attribution = "Imágenes de fondo: © Esri; Esri, i-cubed, USDA, USGS, AEX, GeoEye, Getmapping, Aerogrid, IGN, IGP, UPR-EGP, y GIS User Community" )) %>%
  setView(-60,-34, zoom = 5) 
#mapa_base
```

---
# Procesos del flujo de trabajo
d. Despliegue de marcadores y etiquetas "pop-up"

```r
icons <- awesomeIcons(
  icon = 'ios-keypad',
  iconColor = 'white',
  library = 'ion',
  markerColor = c("tomato", "cadetblue", "blue", "green", "purple")
)

etiqueta <- popupOptions(
  maxWidth=500)
```

---
# Procesos del flujo de trabajo
d. Despliegue de marcadores y etiquetas "pop-up"

```r
mapa_final <- mapa_base  %>%
  addAwesomeMarkers(data=detectormetales,
              popup=~detectormetales$V1,
              popupOptions=etiqueta,
              icon=icons) %>% 
  addLayersControl(baseGroups = c("Acuarela", "Satelital", "Mapa"))

mapa_final
```

---
# Procesos del flujo de trabajo
e. Knit y exportación de html

```r
file.copy("detectordemetales.html", to="docs/")
file.rename("docs/detectordemetales.html", to="docs/index.html")
file.remove("detectordemetales.html")
```

---
# Accesibilidad
.pull-left[
- Leaflet es poco accesible para quienes usan lectores de pantalla.

- Incluí una versión del texto en la que intenté transmitir la presentación del cuento y respetar la posibilidad de leer al azar.
]

.center[<img src="data:image/png;base64,#img/QR_accesible.png" width="80%" alt="Código QR de versión accesible"/>]

.center[[tinyurl.com/CuentoAccesible](https://github.com/nmorandeira/detectordemetales/blob/main/detectordemetales.md)]
]

---
class: chapter-slide

# Qué aprendí

---
# Qué aprendí de R y Leaflet

- Mejoré mi uso de xaringan y de Leaflet.

- Leaflet es poco accesible y la navegabilidad del relato es limitada en dispositivos celulares.

---
# Qué aprendí de R y Leaflet

- Conocí otras herramientas para crear relatos situados, como [*leaflet-storymap*](https://github.com/slead/leaflet-storymap) y otras (ver sección _Compare with_ en ese repositorio).

.center[<img src="data:image/png;base64,#img/storymap.gif" width="70%" alt="Animación mostrando el comportamiento del Demo de Story Map"/>]

---

# Qué aprendí de narrativa

- Escribir con restricciones y con un disparador abre posibilidades de creación.

- En esta modalidad de cuento digital, el mapa narra el recorrido espacial de la historia.

- La escritura mejora al leer en un colectivo.

- Algunas/os lectoras/es prefieren conocer el orden cronológico..., pero varias personas disfrutaron de reconstruir la historia y me señalaron órdenes alternativos a los que yo había pensado.

---

# Conclusiones

- El proyecto de cuento situado puede crecer: por ejemplo, se pueden sumar escenas o incluir capas con distintos puntos de vista. También es posible construir un relato colaborativo usando control de versiones.

- R da para todo: seguiré explorando :)

---

# Conclusiones

- Errar al blanco para corregir.

.center[<img src="data:image/png;base64,#img/error.png" width="60%" alt="Blanco de arquería con flechas que no acertaron en el centro"/>]

---

### ¡Muchas gracias!
.pull-left[
.medium[
Gracias a la comunidad de **LatinR** por alentarme a enviar este trabajo, por las amorosas revisiones y por darme el espacio para exponer desde esta identidad mixta de escritora, ecóloga y usuaria de R.

Gracias a _Gabo Gaona_ de **RSpatial_ES** por ayudarme con la visualización del mapa en xaringan.

A _Martina López Brazzola_ [@martinailustra](https://www.instagram.com/martinailustra/) y a _Sebastián López Brach_ [@lopezbrachs](https://www.instagram.com/lopezbrachs/) por autorizarme a usar imágenes de su autoría.
]]

.pull-right[
.medium[
.center[
<svg viewBox="0 0 496 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg">  <path d="M165.9 397.4c0 2-2.3 3.6-5.2 3.6-3.3.3-5.6-1.3-5.6-3.6 0-2 2.3-3.6 5.2-3.6 3-.3 5.6 1.3 5.6 3.6zm-31.1-4.5c-.7 2 1.3 4.3 4.3 4.9 2.6 1 5.6 0 6.2-2s-1.3-4.3-4.3-5.2c-2.6-.7-5.5.3-6.2 2.3zm44.2-1.7c-2.9.7-4.9 2.6-4.6 4.9.3 2 2.9 3.3 5.9 2.6 2.9-.7 4.9-2.6 4.6-4.6-.3-1.9-3-3.2-5.9-2.9zM244.8 8C106.1 8 0 113.3 0 252c0 110.9 69.8 205.8 169.5 239.2 12.8 2.3 17.3-5.6 17.3-12.1 0-6.2-.3-40.4-.3-61.4 0 0-70 15-84.7-29.8 0 0-11.4-29.1-27.8-36.6 0 0-22.9-15.7 1.6-15.4 0 0 24.9 2 38.6 25.8 21.9 38.6 58.6 27.5 72.9 20.9 2.3-16 8.8-27.1 16-33.7-55.9-6.2-112.3-14.3-112.3-110.5 0-27.5 7.6-41.3 23.6-58.9-2.6-6.5-11.1-33.3 2.6-67.9 20.9-6.5 69 27 69 27 20-5.6 41.5-8.5 62.8-8.5s42.8 2.9 62.8 8.5c0 0 48.1-33.6 69-27 13.7 34.7 5.2 61.4 2.6 67.9 16 17.7 25.8 31.5 25.8 58.9 0 96.5-58.9 104.2-114.8 110.5 9.2 7.9 17 22.9 17 46.4 0 33.7-.3 75.4-.3 83.6 0 6.5 4.6 14.4 17.3 12.1C428.2 457.8 496 362.9 496 252 496 113.3 383.5 8 244.8 8zM97.2 352.9c-1.3 1-1 3.3.7 5.2 1.6 1.6 3.9 2.3 5.2 1 1.3-1 1-3.3-.7-5.2-1.6-1.6-3.9-2.3-5.2-1zm-10.8-8.1c-.7 1.3.3 2.9 2.3 3.9 1.6 1 3.6.7 4.3-.7.7-1.3-.3-2.9-2.3-3.9-2-.6-3.6-.3-4.3.7zm32.4 35.6c-1.6 1.3-1 4.3 1.3 6.2 2.3 2.3 5.2 2.6 6.5 1 1.3-1.3.7-4.3-1.3-6.2-2.2-2.3-5.2-2.6-6.5-1zm-11.4-14.7c-1.6 1-1.6 3.6 0 5.9 1.6 2.3 4.3 3.3 5.6 2.3 1.6-1.3 1.6-3.9 0-6.2-1.4-2.3-4-3.3-5.6-2z"></path></svg> [Repositorio del cuento](https://github.com/nmorandeira/detectordemetales)

🕸[Mi página web](https://nmorandeira.netlify.app/)

.center[<img src="data:image/png;base64,#img/Puente.JPG" width="85%" alt="Puente roto de madera, sobre en un río. Vista desde el puente de madera."/>  ]]
]